Atari Forever 4

home *** CD-ROM | disk | FTP | other *** search

/ Atari Forever 4 / Atari Forever 4 / Atari Forever 4.iso / PD_THEMA / CLI / COMMAND / TEST < prev

Wrap

Text File | 1998-03-14 | 5.1 KB | 338 lines

notext cls echo echo echo echo echo Testbatchdatei für COMMAND.PRG echo von Joachim Wolf echo echo echo Diese Datei dient der Überprüfung der meisten(!) Befehle des Kommando- echo interpreters. Man kann sich aus dieser Datei außerdem Inspirationen echo für eigene Anwendungen holen. echo echo Um ein korrektes Funktionieren zu gewährleisten, muß das echo 'errorbreak'-Flag gesetzt sein. Sollte dies nicht der Fall sein, haben echo Sie nun die Möglichkeit, den Test anzuhalten und mit Hilfe des echo 'errorbreak'-Befehls dies nachzuholen. echo echo ?stop clear cls echo nach Drücken einer Taste muß 5 mal BELL ertönen echo wait text let bell 5 lbl glocke bell -- bell print bell if bell <> 0 glocke notext echo echo Bis jetzt vorhandene Variablen: text vardump wait cls notext echo es wird jetzt die Variable zaehler bis 100 hochgezaehlt wait cls text lbl hundert print zaehler ++ zaehler if zaehler < 101 hundert notext echo ?stop cls echo zaehler wird jetzt bis auf Null runtergeteilt echo wait cls text lbl teilung print zaehler 2/ zaehler if zaehler > 0 teilung notext echo ?stop cls echo zaehler wird auf eins gesetzt und solange verdoppelt echo bis zaehler > 1000 ist wait cls text ++ zaehler lbl tausend print zaehler 2* zaehler if zaehler < 1001 tausend echo vardump notext echo ?stop cls echo es werden jetzt alle Variablen auf Null gesetzt wait text clear vardump notext ?stop cls echo es wird der freie RAM-Speicher und die freie Kapazität des aktuellen echo Speichermediums angezeigt text df free echo echo Test von 'if =' if bell = 0 weiter echo if = funktioniert nicht stop lbl weiter echo 'if =' ok notext ?stop cls echo es wurden bis jetzt folgende Befehle getestet: echo echo notext, cls, lbl, clear, echo, wait, ?stop, bell echo -- , ++ , 2*, 2/ echo if < > <> = echo df , free echo print , vardump , let, free, df, goto, srhist, flags text flags ?stop notext cls echo es werden jetzt die Cursor- und Mausbefehle getestet echo echo Mausein mouseon wait echo Mausaus mouseoff wait echo Cursor aus crsoff wait echo Cursor ein crson ?stop cls echo es werden jetzt weitere Variablenbefehle überprüft echo bell muß am Ende auf 1000 und zaehler auf 0 stehen echo wait cls text vardump += bell 10 += zaehler bell *= bell 20 *= bell zaehler /= bell 2 -= zaehler zaehler notext echo Endbelegung der Variablen: vardump ?stop cls echo es wurden jetzt alle Variablenbefehle getestet echo echo Test von dir und ls echo 1. alle Files echo 2. nur '.prg'-Files wait text dir dir *.prg ls ls *.prg notext ?stop cls echo ALIAS-Test alias echo neues ALIAS 'juhu' newalias juhu @test alias echo löschen des neuen ALIAS delalias juhu alias ?stop cls echo inverse + head-Test echo der ausgegeben Text darf nicht beachtet werden! wait inverse head test wait inverse ?stop cls echo 'more' und 'od' werden überprüft (an TEST-file) wait more test od test ?stop cls echo 'cp', 'cmp' und 'rm' werden getestet wait echo text cp test t.t cmp test t.t ls t*.* rm t.t ls t*.* notext ?stop cls echo Test von 'mv' wait text mv test t ls t*.* mv t test ls t*.* notext ?stop cls echo Überprüfung von 'device', 'version', 'pwd', 'help', 'time' und 'date' echo wait help time date pwd device version echo ?stop cls echo Test 'find' und 'string' echo bei 'find' müssen alle '.prg'-Files auf dem Laufwerk ausgegeben werden echo bei 'string' müssen alle Files im Directory ausgegeben werden, die echo das Wort 'device' enthalten. wait cls find *.prg string *.* /device/ ?stop cls echo test von 'exist' und 'size0' exist test testok echo 'exist' fehlerhaft! stop lbl testok echo 'exist' korrekt! size0 t.t test2ok echo 'size0' fehlerhaft! stop lbl test2ok echo 'size0' korrekt! ?stop cls echo Teste 'srtab', 'settab', 'keys', 'setlp', 'defkey', 'h' und 'lock' echo wait text echo teste 'keys' wait keys echo teste 'flags' wait flags echo teste 'setlp -1' setlp -1 flags wait echo teste 'resetlp -1' resetlp -1 flags wait echo teste 'setlp 1 2 3' und 'resetlp 1 2 3' setlp 1 2 3 resetlp 1 2 3 flags wait echo teste 'defkey 1 @test' defkey 1 @test keys wait echo teste 'h' h wait cls echo teste 'lock' echo lock wait cls echo teste 'srtab' srtab flags wait echo teste 'settab 5' settab 5 flags wait echo teste 'settab 8' settab 8 flags notext ?stop cls echo Test 'wc' mit File 'TEST' wc test wait cls echo Test des tree-Befehls wait tree wait cls echo test von 'cat' wait cls cat test wait cls echo test von 'cleararg', 'inquire', '?arg', 'shiftarg' und 'setarg' echo echo 1.inquire-Überprüfung cleararg inquire Argumente eingeben lbl inquire echo $0 shiftarg ?arg 0 inquire wait echo echo 2.setarg-Überprüfung echo es muß "Argument1 Argument2" erscheinen echo text setarg Argument1 Argument2 echo $0 $1 wait notext cls echo Testende erreicht echo soll nicht abgebrochen werden wird der Befehl 'restart' ausgeführt echo und der Testdurchlauf neu gestartet echo ?stop restart